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DB Tool Combos v2.3 source 



Script Of: application M DB Tool Combos v2.3 source" 




global imfile 
—global btfiie2 
global writestr 
global keywordlist 
global skukeylist 
global fn 
global mygotimage 
global maincatlist 
global subcatlist 
global detailcatlist 
global detailcatassoc 
global excelfile_to_open 
global currentitemnumber 
global currentskunumber 
global issku 
global firstkeyword 
global firstdescription 
global combos 
global stylelist 
global colorlist 
global sizelist 

set mygotimage to false 
set skumods to 0 
set fn to nu 

set currentitemnumber to 2 
set currentskunumber to 2 
set currentimagenumber to 2 
set issku to 0 
set firstkeyword to true 
set firstdescription to true 
set colorlist to 0 
set sizelist to 0 
set stylelist to Q 

tell application "Microsoft Excel" 
Activate 

set excelfile_to_open to GetOpenFilename Title "Select a Blank Excel Template File?" 
Open excelfile_to_open 

tell Worksheet "Products" 
set notfound to true 
repeat while notfound 

set cellstring to (V & currentitemnumber as text) & "c1" 
set cede to (the Value of Cell cellstring) 
if (cellc = 0) then 
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set notfound to false 
else 

set currentitemnumber to currentitemnumber + 1 
end if 
end repeat 
end teli 

tell Worksheet "Skus" 
set notfound to true 
repeat while notfound 

set cellstring to (V & currentskunumber as text) & M c1 M 

set cellc to (the Value of Cell cellstring) 

if (cellc = 0) then 

set notfound to false 

else 

set currentskunumber to currentskunumber + 1 
end if 
end repeat 
end tell 

tell Worksheet "Alternate Image" 
set notfound to true 
repeat while notfound 

set cellstring to (V & currentimagenumber as text) & "c.1" 
set cellc to (the Value of Cell cellstring) 
if (cellc = 0) then 
set notfound to false 

else ' 

set currentimagenumber to currentimagenumber + 1 

end if 
end repeat 
end tell 

end tell 

activate 

repeat with vfrom 1 to 1000 
copy false to the end of issku 
end repeat 

open the name translation file 
choosenametranslation() 

—set tempname2 to choose folder with prompt "Location For Name Translation Table" 
-set filenameofimage to (tempname2 as string) & "Name Translation" 
-set imfile to open for access file filenameofimage with write permission 
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Script Of; application "DB Tool Co m bos v2.a Rnnrrp" 
—set eof imfife to 0 

— re-open the category file so I can read it in tine by tine 
set maincatlist to 0 

set subcatlist to 0 
set detailcatlist to 0 
set cfetailcatassoc to 0 
set dummylist to 0 

— open the category file and read in 

set catfile to choose file with prompt "Locate Categories File" 
close access catfile 

— Initatize the detailcatiist to a list of lists of lists 
~ ASSUMES 50 SUB-CATEGORIES 

— GENERATES 200 DETAIL CATEGORIES 
—repeat with v from 1 to 20 

— copy dummydetaillist to the end of detailcatlist 
—end repeat 

open window "Category Loading" 

— re-open the category file so I can read it in line by fine 
set currentdetailoffset to 0 

set dbfile to open for access catfile 
set v to true 
repeat while (v = true) 
try 

set readcatlist to Q J 
set readcatlist to (read catfile as {text} using delimiters {tab} before {return}) 
if (item 2 of readcatlist = "0") then 
copy (item 4 of readcatlist) to end of maincatlist 
copy dummylist to the end of subcatlist 
copy dummylist to the end of detailcatassoc 
else if (item 3 of readcatlist = "0") then 

copy (item 4 of readcatlist) to end of item (item 1 of readcatlist) of subcatlist 
set currentdetailoffset to currentdetailoffset + 1 

copy currentdetailoffset to end of item (item 1 of readcatlist) of detailcatassoc 

copy dummylist to the end of detailcatlist 

else 

copy (item 4 of readcatlist) to end of item (currentdetailoffset) of detailcatlist 
end if 
on error 
set v to false 
end try 
end repeat 
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close window "Category Loading" 

— set tempcnt to 1 

— This is debug code to test category stuff 

—set tempdebugname to new file with prompt "Create Book Ticket Fife" 
—set Mile to open for access tempdebugname with write permission 
—set eof of btfiie to 0 

—repeat with v from 1 to iength of maincatiist 

— set writestr to "Main Category (" & tempcnt & ") = " & item (v) of maincatiist <& return 

— write writestr to btfiie 

— set tempcnt to tempcnt + 1 

— set writestr to *Sub(s) = " & return 
-- write writestr to btfiie 

— repeat with q from 1 to length of item (v) of subcatlist 

set writestr to tab & item (q) of item (v) of subcatlist & return 

— write writestr to btfiie 

-- copy item (item (q) of item (v) of detaifcatassoc) of detaifcatlist to tempiist 
-- set mark2 to (length of tempiist) as text 

— set writestr to tab & "Detaii (" & mark2 & ') = " & return 

write writestr to btfiie 

— repeat with q from 1 to mark2 

— set writestr to tab & tab & item (q) of tempiist & return 

— - write writestr to btfiie 

— end repeat 

— set writestr to return 

— - write writestr to btfiie 
-- end repeat 

set writestr to return & return 
write writestr to btfiie 
—end repeat 

—repeat with v from 1 to length of detailcatlist 

" set mark2 to (length of item (v) of detailcatlist) as text 

— set writestr to tab & "Detail (" & mark2 &") = "& return 

— write writestr to btfiie 

— repeat with q from 1 to mark2 

-• set writestr to tab & item (q) of item (v) of detailcatlist & return 
-- write writestr to btfiie 

— end repeat 

— set writestr to return 

— write writestr to btfiie 
•-end repeat 



—close access btfiie 
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set maincatlist to {"None"} & maincatlist 
dose access catfile 

set writestr to 

open window "QuarkXPress Converter" 
on capitalize(sb) 

set cwords to number of words in sb 
set sbNIew to HU 

if cwords < 1 then return sbNew 
set ch to upper(character 1 of word 1 of sb) 
set cch to number of characters in word 1 of sb 
If cch > 1 then 

set sbNew to ch & characters 2 thru -1 of word 1 of sb 
else 

set sbNew to ch 
end if 
set i to 2 

repeat while i < cwords 

if word i of sb is not in {"a", "the", "and", "an", "for", "of", "to", "in", "with", "on"} then 
set ch to upper(character 1 of word i of sb) 
set cch to number of characters in word i of sb 
if cch > 1 then 

set sbNew to sbNew & " " & ch & characters 2 thru -1 of word i of sb 
else 

set sbNew to sbNew & " " & ch 
end if 
else 

set sbNew to sbNew & " " & word i of sb 

end if 

set i to i + 1 
end repeat 
return sbNew 
end capitalize 

on upper(ch) 

set charnum to ASCII number ch 

if charnum £ (ASCII number "a") and charnum < (ASCII number "z") then 
set theResult to charnum - 32 
return ASCII character of theResult 
end if 
return ch 
end upper 
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on charTrim{chln f sb) 
set sbNew to (sb as string) 

repeat while last character of sbNew as string is chin 
set sbNew to characters 1 through -2 of sbNew as string 
end repeat 
return sbNew 
end charTrim 



on charReplace(chln, sb, chOut) 
set sbNew to "" 
repeat with i in sb 

If (i as string) is (chin as string) then 

set sbNew to sbNew & chOut 

else 

set sbNew to sbNew & i 

end if 
end repeat 
return sbNew 
end charReplace 

on charFilter(ch Lower, chUpper, sb) 
set sbNew to " M 

set chLower to ASCII number chLower 
set chUpper to ASCII number chUpper 
set cch to length of sb 
set i to 1 

repeat while i < cch 
set ch to (item i of sb) 
set charnum to ASCII number ch 

if ((charnum £ (chLower)) and (charnum < (chUpper))) then 
set sbNew to sbNew & ch 
if ch is " • then 
set i to i + 1 

repeat while i ^ cch and item i of sb is " M 
set i to i + 1 
end repeat 
set i to i - 1 
end if 

else if charnum = (ASCII number "(§") then 

set sbNew to sbNew & M é" 
else if charnum = (ASCII number "<§>") then 

set sbNew to sbNew & tt ® M 
else if charnum = (ASCII number "™") then 

set sbNew to sbNew & "™ M 
else if charnum = (ASCIL number -"") then 
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set sbNew to sbNew & (ASCII character 34) 

— set sbNew to sbNew & m “ m 
else if charnum = (ASCII number mnu ) then 

set sbNew to sbNew & (ASCII character 34) 

— set sbNew to sbNew & "” m 
else if charnum = (ASCII number "'") then 

—set sbNew to sbNew & m ‘ m 

set sbNew to sbNew & "'" 
else if charnum = (ASCII number ■"") then 

—set sbNew to sbNew & 9 ’ m 

set sbNew to sbNew & " ,H 
else if charnum = (ASCII number "©") then 

set sbNew to sbNew & "©" 
else If charnum = (ASCII number "0") then 

set sbNew to sbNew & "¢" 
else If charnum = (ASCII number " 0 ") then 

set sbNew to sbNew & "°" 
else if (charnum = (ASCII number V)) then 

if i < cch then 

set chNext to (item (i + 1) of sb) 
set charnumNext to ASCII number chNext 
if charnumNext = (ASCII number M 2") then 
set chLast to last character of sbNew 
set charnumLast to (ASCII number chLast) 
if charnumLast = (ASCII number M 1 M ) then 

set sbNew to characters 1 through -2 of sbNew 

set sbNew to sbNew & "½ H 
set i to i + 1 

e n d i f 

else if charnumNext = (ASCII number M") and sbNew is not " M then 
set chLast to last character of sbNew 
set charnumLast to (ASCII number chLast) 
if charnumLast = (ASCII number "I") then 
if i > 2 then 

set sbNew to characters 1 through -2 of sbNew 
else 

set sbNew to " M 
e n d i f 

set sbNew to sbNew & "¼" 
set i to i + 1 
else if charnumLast = (ASCII number "3") then 
if i > 2 t h e n 

set sbNew to characters 1 through -2 of sbNew 
else 

set sbNew to MM 
- end if 
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set sbNew to sbNew & "¾ M 
set i to i + 1 
else 

set sbNew to sbNew & 7" 
end if 
else if i > 2 then 

set chLast to last character of sbNew 
set j to 1 
set sbNewTemp to °" 
set cchNew to length of sbNew 
repeat while j < cchNew 

set sbNewTemp to sbNewTemp & (item j of sbNew) 
set j to j + 1 
end repeat 

set sbNewTemp to sbNewTemp & 
set sbNewTemp to sbNewTemp & chLast 
set sbNew to sbNewTemp 
set sbNew to sbNew & V" 
else 

set sbNew to sbNew & V" 
end if 
else 

set sbNew to sbNew & "/" 
end if 

else if sbNew is not °" then 
if last character of sbNew is not " " then 
set sbNew to sbNew & " " 
end if 
end if 
set i to i + 1 
end repeat 
return sbNew 
end charFilter 

on OLDcharFilter(chLower, chUpper, sb) 
set sbNew to 

set chLower to ASCII number ch Lower 
set chUpper to ASCII number chllpper 
set cch to length of sb 
set i to 1 

repeat while i < cch 
set ch to (item i of sb) 
set charnum to ASCII number ch 
if ((charnum £ (chLower)) and (charnum < 

(charnum = (ASCII number "6 M )) or -i 

(charnum = (ASCII" number "<E>")) or V 



(chUpper))) or -» 
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(charnum = (ASCII number mjum )) then 
set sbNew to sbNew & ch 
If ch is " " then 
set i to i + 1 

repeat while i £ cch and item i of sb is " M 
set i to i + 1 
end repeat 
else 

set i to i + 1 
end If 
else 

if (charnum = (ASCII number V)) then 
if i > 2 then 

set chLast to last character of sbNew 
set j to 1 
set sbNewTemp to 
set cchNew to length of sbNew 
repeat while j < cchNew 

set sbNewTemp to sbNewTemp & (item j of sbNew) 
set j to j + 1 
end repeat 

set sbNewTemp to sbNewTemp & "-" 
set sbNewTemp to sbNewTemp & chLast 
set sbNew to sbNewTemp 
end if 

set sbNew to sbNew & 7" 
set i to i + 1 
else 

set sbNew to sbNew & M " 
set i to i + 1 
end if 
end if 
end repeat 
return sbNew 
end OLDcharFilter 

on charFilterFraction(chLower, chUpper, sb) 
set sbNew to " M 

set chLower to ASCII number ch Lower 
set chUpper to ASCII number chUpper 
set cch to length of sb 
set i to 1 

repeat while i < cch 
set ch to (item i of sb) 
set charnum to ASCII number ch 

if (charnum £ (chLower)) and (charnum £ (chUpper))" then 
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set sbNew to sbNew & ch 
If ch is ■ " then 
set i to i + 1 

repeat while i £ cch and item i of sb is ■ " 
set i to i + 1 
end repeat 
else 

set i to i + 1 
end if 
else 

set sbNew to sbNew & 7" 

set i to i + 1 
end if 
end repeat 
return sbNew 
end charFilterFraction 

on makecombos() 

tell application "Microsoft Excel" 
Activate 

tell Worksheet "Skus2" 
Activate 

set openrow to 1 
set notfound to true 
repeat while notfound 

set cellstring to (V & openrow as text) & "d" 
set cellc to (the Value of Cell cellstring) 
if (cellc = 0) then 

set notfound to false 

else 

set openrow to openrow + 1 
end if 
end repeat 
end tell 
end tell 

set pasterows to (number of items of stylelist) * -. 
(number of items of colorlist) * 
(number of items of sizelist) 

set gooddatarow to openrow 
tell application "Microsoft Excel" 
Activate 

tell Worksheet "Skus_2" ... 
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Script Of: application "DB Too l Combos v2.3 source" 
Activate 

Copy the "applied' row 
set cellstring to ("A2:AE2") 
set test to Select Range cellstring 
copy test 

-- Paste it 

—set cellstring to ("A" & (openrow + pasterows) as text) 

set cellstring to ( tt A" & gooddatarow as text) & ":AE tt & ((gooddatarow + pasterows - 1) as text) 
Select Range cellstring 
Paste 

end tell 
end tell 

repeat with a from 1 to number of items of stylelist 
repeat with b from 1 to number of items of colorlist 
repeat with cfrom 1 to number of items of sizelist 

set aSKUrow2 to {0, 0, 0} 
set item 1 of aSKUrow2 to item a of stylelist 
set item 2 of aSKUrow2 to item b of colorlist 
set item 3 of aSKUrow2 to item c of sizelist 

tell application "Microsoft Excel" 

Activate 
tell Worksheet "SIUJS2 11 
Activate 

Copy the "applied" row 
—set cellstring to ("A" & gooddatarow as text) & ":AE" & (gooddatarow as text) 
—set test to Select Range cellstring 
--copy test 

-- Paste it 
-^set cellstring to ("A" & openrow as text) 
--Select Range cellstring 

--Paste 

•- Set the additional data 

set cellstring to ("r" & openrow as text) & H c3:r M & (openrow as text) & "c3" 
if ((item 1 of aSKUrow2) * 0) then 

set the Value of Range cellstring to (item 1 of aSKUrow2) 
e n d i f 
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set cellstring to (V & openrow as text) & "c4:r" & (openrow as text) & "c4" 
if ((item 2 of aSKUrow2) * 0) then 

set the Value of Range cellstring to (item 2 of aSKUrow2) 
e n d i f 



set cellstring to ("r" & openrow as text) & H c5:r" & (openrow as text) & "c5" 
if ((item 3 of aSKUrow2) * 0) then 

set the Value of Range cellstring to (item 3 of aSKUrow2) 
end if 

end tell 
end tell 

set openrow to openrow + 1 
end repeat 
end repeat 
end repeat 

— tell application "Microsoft Excel" 

— Activate 

— tell Worksheet "Skus2 m 

Activate 

— set rangestring to ("A" & gooddatarow as text) & ":AE M & (gooddatarow as text) 

— tell Range rangestring 

Delete 
-- end tell 
end tell 
end tell 

activate 

end makecombos 
on resetSKU() 

tell application "Microsoft Excel" 
tell Worksheet "Skus" 
set notfound to true 
repeat while notfound 

set cellstring to (V & currentskunumber as text) & "d" 
set cellc to (the Value of Cell cellstring) 
if (cellc = 0) then 

set notfound to false 

else 

set currentskunumber to currentskunumber + 1 
end if 
end repeat 

end tell - 
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end fell 
end resetSKU 

on choosenametranslation() 
set query to display dialog -i 

"Select Name Translation File" buttons {"New File", "Existing File", "Cancel"} default button 1 

if button returned of query = "Existing File" then 
— if here, prompt the user to name a Book Ticket file to open 

set tempname to choose file with prompt "Locate Existing Name Translation File" 
set imfile to open for access file tempname with write permission 
else 

set tempname to new file with prompt "Create Name Translation File" 
set fnamestr to tempname as string 

set imfile to open for access file Jnamestr with write permission 
set eof imfile to 0 
end if 

end choosenametranslation 



on chosen theObj — a menu item has been chosen 
copy name of window of theObj to theWindow 
copy name of theObj to theMenultem 
copy title of menu of theObj to theMenu 

if theMenu is "File" then 
if theMenultem = "Quit" then 

« commented out per betsy 2/4/99 
— teli application 'Microsoft Excel" 
Activate 

set save_fife_name to GetSaveAsFilename 
SaveCopy ActiveWorkbook in save_file_name 

Close 
end tell 
activate 

close access my imfile 

quit 
end if 
end if 

end chosen 
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Script Of: push butt off "quit Button" of window 'image Converter" 

on Wilted theObj 
• quit 
end hilited 



• 



CropFeed 1.3 source 



jieript Of: p»Wh button "batchBut ^"" Q f window "Image Converter" 
on hilited theObj 

set enabled of (push button ■nextButton - of window "Image Converter") to false 
set enabled of (push button "skipButtonV of window "Image Converter") to false 
set enabled of (push button "batchButton" of window "Image Converter") to false 
batchProcessO 
end hilited 



CropFeed 1,3 source 



Script Of: push button "skipButton" of window "Image Converter 

global nameTable 
on hflrted theObj 
openNextFile(nameTablej 
end hilited 



CropFeed 1.3 source 



Script Of: push button -nextButton'' of window "Image Converter' 

global narneTable 
global outRleName 
global inRleRef 
global cropFileRef 
oh hilrted theObj 

tell application "Adobe Photoshop® 5.0" 
activate. ' 

with timeout of 1000 seconds 
do script "change - mode to RGB" 
my sayePJCt(outFHeName) 
my clpselmageO 
. end timeout : 
■ end tell 

open for access {cropFileRef} with write permission 
set eof_value to get eof cropFileRef 

write putRleName & return to {cropFileRef} starting at (eof_value + 1) 
close access {cropFileRef} 
openNextFile(nameTable) 
end hilited 
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global outFileName 
global doneFileRef 
global inHleRef 
on hilfted thebbj 

tell application "Adobe Photoshop® 5.0" 
activate 

do script "change mode to RGB" 
do script Thumbnail Image" 
my saveGIF(outRleName) 
my closelmageO 
open {inFileRef) 
end tell 

open for access {doneFileRef} with write permission 
set eoLyalue to get eof doneFileRef 

write outFileName & return to {doneFileRef} starting at (eof_value '+ 1) 
close access {doneRleRef} 
end hilited 
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end if 
end tell 

end closelmage 
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click button "Replace" 
end if 

if exists radio button "None" then 

click radio button "None" 

click radio button "32 bits/pixel" 

click button "OK* 

end if 
end tell 
end savePICT 

on saveJPG(thePlace) 
tell application "PreFab Player^ 41 
—do menu menu item 'Save As' of menu "File" 
type m s" holding shift & command 
do menu popup item "JPEG* of popup ^Format" 

type {thePlace, ■jpgV enter} 
if exists button ■Replace" then 
click button "Replace" 
end if . • . 
type OpegLevel, enter} 
end tell 
end sayeJPG 

on saveGIF(thePlace) 
tell application "PreFab Player™" 
—do menu menu Item "Save As" of menu Tile" 
type •s" holding shift & command / 
do menu popup item "CompuServe GIF" of popup "Format 
type {thePlace, ".gif\ enter} 
if exists button "Replace" then 
click button "Replace" 
end if 

if exists radio button "Normal" then 
click radio button "Normal" 
click button "OK" 
end If 
end tell 
end saveGIF 

on closelmageO 
— close and dont save 
tell application "PreFab Player™' 1 

-rfo menu menu hem 'Close' of menu "File" with repeat until successful 

type V holding command 

if exists button "Don't Save" then 

click button "Donl Save" - may have exported the changed version 
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my sayeGlF(outFileName) 
my closelmageO 

end if . - ; * 

--end if 
end timeout 
end tell 

tell application "Finder* to delete (outFileRef) 

if (doneFiles does not contain outFileName) then 

open for access (doneFileRef) with write permission 

set eoryalue to get eof doneFileRef 

write outFileName & return to (doneFileRef) starting at (eof_value + 1) 
close access (doneFileRef) 

end, if , 
on error errtxt 

if not (doneFiles contains outFileName) then 

display dialog errtxt & ■: " & outFileName 

end if 
en d try 
on error 

close access (cropFileRet) 

exit repeat 
end try 
end repeat 
activate me 
beep 2 

display dialog "Done processing images.* 1 buttons °OK" default button "OK" 

end batchProcess 

on inUst(theltem, theLlst) 

repeat with i from 1 to count theUst 

if item j of theList = theltem then return i 

end repeat 

return 0 
end inList 

on savePICT(thePlace) 

- warning: if filename is maximum number of chars, the original file wiii be replaced 

— if close to the max, a .gif M will be truncated 
tell application "PreFab Player™* 

-do menu menu item 'Save As" of menu "File" 

type "a" holding shift & command 

do menu popup item "PICT File" of popup "Format 11 

type (thePlace, enter) 

If exists button "Replace" then 
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set theResult to true 
end if 
end if 
end if 

return theResult 
end IsDetailName 

on batchProcessQ 
activate me 

display dialog -Done with Cropping. 11 & return & "About to compress and create thumbnails/ 
try 

open for access {doheRleRef} 

set doneRles to read {doneFileRef} as list using delimiter return 
close access {doneFileRef} 
on error errtxt 

display dialog "No previously batched files were found/ 

set doneRles to 0 
end try 

-sef melist to (name of every file in folder (FolderToOpen as text) whose file type is "PICT) as "St 
-tell application 'Finder 9 to set fiieiisi to (files of FolderToOpen whose file type Is 'PICT) as list 
—repeat with theFiJe in filefist 
dose access narneTable 

set cropTable to open for access {cropRleRef} 
■ repeat 
try ■ 

set outRleName to read cropTable as text before return 

set 'outF1.leR.ef to a reference to file ((FolderToOpen as text) & outRleName) 

'-' try. : . 

tell application "Adobe Photoshop® 5.0* 

activate 
with timeout of 1000 seconds 

open {outFiieRef} - using/ application fife id m 8BIM m 

activate 
"do script 'Product Page Image* 
do script "USM" 
my saveJPG(outFileName) 

my closelmageO m ■ „, " xx ... ^ 

if ((not my isDetailName(outFileName)) and (doneRles does not contain outRleName)) then 

open {outFiieRef} - using application file id "8BIM m 
end tell 
activate 
—do script 'Thumbnail Image' 
do script ' "thumbnail" 

do script "RGB to Indexed Color" _ - 




CropFeed 1-3 source 
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set inFileRef to a reference to file ((FolderToOpen as text) & inFileName) 
set outFlleName to read nameTable before return 
repeat while croppedHles contains outFileName 

— display dialog crdppedFiles as text 
read nameTable until 

set iriReName to read nameTable as text before":" 

set inFileRef to a reference to file ((FolderToOpen as text) & inFileName) 
set outFileName to read nameTable before return 
end repeats 
on error • 
batchProcess() 
return 
■ end try .' 

set enabled of (push button "thumbButton 11 of window "Image Converter - ') to true 
set enabled of (push button "nextButton" of window "Image Converter 11 ) to true 
set enabled of (push button "skipButton" of window "Image Converter) to true 
set enabled of (push button °bat(^Button M of window "Image Converter") to true 
tell application "Adobe Photoshop® 5.0" 
activate 

with timeout of 1 0000 seconds 
. try 

open {inFileRef} 

if my isDetailName(outFiJeName) then 

.beep!. 

display dialog "Detail Image" with icon 1 
' end if 
on error errtxt 

display dialog errtxt & ": - & inFileName 
my opehNextFile(nameTable) 
end try 
end timeout 
end tell 

end openNextFile 

on isDetailName(6b) 
set cch to length of sb 
set i to cch 
set theResuIt to false 
if i > 2 then 

repeat while (item i of sb > 0) and (item i of sb £ 9) and (i > 1) 
set i to i - 1 
end repeat 

If (i < cch) and (item i of sb is "d") and (i > 1) then 
If item (i - 1) of sb fis V then 



Script Of: application "CropPeed 1. a source" 

set nameTable to open for access alias nameName 
on error 

display dialog "Error on Name Translation file" & return & "Please select another folder, or create a Name 
Translation file" 

set enabled of push button "nextButton" of window "Image Converter" to false 
set enabled of push button ■thumbButton" of window "Image Converter" to false 
set enabled of (push button "stop 

set enabled of (push; button "batchButtori" of window "Image Converter") to false 
return 
end try 

• end try " 
openNextFile(nameTable) 
end getFolder 

on chosen theObj 

copy name of window of theObj to theWindow 
copy name of theObj to theMenultem 
copy name of menu of theObj to theMenu 
if index of menu of theObj ~ 1 then 
display dialog "Utility to Batch Process Image Files" 

else if theMenu Is "File" then 
If theMenultem is "Open Folder" then 
getFolderO 
else • ' 

If theMenultem « "Quit" then 
.• - quit v . 

else 

v if theMenultem = "Preferences.-." then 

" display dialog "Current JPEG Compression level is: " ^ jpegLevel 
—open window 'Preferences* 
end if 
end if 
end if ' ' 
end if 

end chosen 

on openNextFile(nameTable) 
try 

set enabled of (push button "thumbButton* of window "Image Converted) to false 
set enabled of (push button "nextButton" of window "Image Converter 41 ) to false 
set enabled of (push button "skipButton" of window "Image Converter") to false 
•«t enabled of <pu«h button •batchSutton" of window "image Converter") to false 
read nameTable until V 

set InFUeName to read nameTable as text before ■:" 




CropFeed 1,3 source 



Script Of: application "Crop Feed 1,3 source" 

global nameTabte 
global nameName 
global FolderToOpen 
global InFlleRef 
global outFileName 
global cropFileRef 
global croppedFiles 
global doneFileRef 
global doneFiies 
global jpegLevel 

set preferences_folder to path to preferences 
try 

set pref_fiie to open for access file ((preferences Jolder as text) & "Cropfeed Prefs") 
set jpegLevel to read pref_Jile before return 
dose access pref_file 

--sef the setting of gauge "jpegGauge" of window "Preferences" to QpegLevei as integer) 
~ sef contents of textbox 'jpegVafue" of window 'Preferences" to jpegLevel 
on error errtxt 

display dialog ^Preferences file not found. Using default values/ 
set JpegLevel to "2* 

- set jpegLevel to contents of textbox "jpegValue" of window "Preferences" 
end try 

open window "Image Converter" 
getFolderO 

on getFolderO 

set FolderToOpen to choose folder with prompt "Select a folder to convert 
t t y 

set cropFileRef to a reference to file ((FolderToOpen as text) & "Cropped Images") 
open for access {cropFileRef} 

set croppedFiles to read (cropFileRef) as list using delimiter return 
close access {cropFileRef} 
on error errtxt 
display dialog errtxt 
set croppedFiles to 0 

display dialog "No previously cropped files were found." 

s^doneFileRef to a reference to file ((FolderToOpen as text) & "Done Images") 
try 

set nameName to ((FolderToOpen as text) & "Name Translation - ) 
set nameTable to open for access alias nameName 
on error errtxt 
try 

set nameName to choose file with prompt "Select Name Translation File* 



